perm filename ALTST.SAI[HAL,HE]1 blob sn#227532 filedate 1976-07-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Driver for test of ALTST
C00003 ENDMK
CāŠ—;
COMMENT  Driver for test of ALTST;

BEGIN "altst"

REQUIRE "ABBREV.SAI[S,RHT]" SOURCE_FILE;
REQUIRE "ALAID.REL[HAL,HE]" LOAD_MODULE;
    EXTERNAL RECURSIVE STRING PROCEDURE TREATREQUEST
      (STRING STR; INTEGER SOURCE);
    EXTERNAL PROCEDURE ALAIDINIT;

ALAIDINIT;

WHILE TRUE DO
    BEGIN "aid"  !  Look at a user request;
    INTEGER I, BRCHAR;
    STRING STR;
    OUTSTR(CRLF & ":*: ");
    STR ā† INCHWL;  ! TTYINL(WTABL0,BRCHAR);
    OUTSTR(TREATREQUEST(STR,1));
    END "aid";

END "altst"